function [flag,xi,yi,ii]=IsCross(x1,y1,x2,y2)

% close all
% clear
% clc
% 
% x1=[-1 1 1 -1 -1]';
% y1=[-1 -1 1 1 -1]';
% x2=[0 0 5]';
% y2=[0 0 5]';
% plot(x1,y1,'-',x2,y2,'r-')
% axis equal

% fill(x1,y1,'r')
[xi,yi,ii]=polyxpoly(x1,y1,x2,y2);
if isempty(xi)
    flag=0;
else
    flag=1;
end

% s1=[x1,y1];
% s2=[x2,y2];
% si=[xi,yi]

% if ismember(si,s1,'rows') && ismember(si,s2,'rows')
%     flag=2;
    